* lisp/mouse.el (context-menu-map): Select clicked window (bug#53249).

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 82424e3e24496b62e5354cd656575ad245a18acc..502683d3d1e4bb50818f1c2085667d1002769a6c 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -324,6 +324,8 @@ the function `context-menu-filter-function'."
          (fun (mouse-posn-property (event-start click)
                                    'context-menu-function)))
 
+    (select-window (posn-window (event-start click)))
+
     (if (functionp fun)
         (setq menu (funcall fun menu click))
       (run-hook-wrapped 'context-menu-functions